(DEFUN C:FIXEM ()
(SETQ TSET_LEN (SSLENGTH TSET))
(SETQ CNT 0)
(WHILE (< CNT TSET_LEN)
  (SETQ ENTDEF (ENTGET(SSNAME TSET CNT)))
  (IF (EQ (CDR (ASSOC 8 ENTDEF)) "0")
    (PROGN
      (SETQ ENTDEF (SUBST (CONS 8 "G-PROP7ANNO")(ASSOC 8 ENTDEF) ENTDEF))
      (ENTMOD ENTDEF)
    )
  )
  (WHILE (NOT(EQ(CDR(ASSOC 0(ENTGET(ENTNEXT(CDR(ASSOC -1 ENTDEF))))))"SEQEND"))
    (SETQ ENTDEF (ENTGET(ENTNEXT(CDR(ASSOC -1 ENTDEF)))))
    (IF (EQ (CDR (ASSOC 8 ENTDEF)) "0")
      (PROGN
	(SETQ ENTDEF (SUBST (CONS 8 "G-PROP7ANNO")(ASSOC 8 ENTDEF) ENTDEF))
	(ENTMOD ENTDEF)
      )
    )
  )
  (SETQ CNT (1+ CNT))
)
)